﻿Public Class formLogin
    Inherits formPadrao
    Private _ucDigitador As New ucDigitador
    Private Sub formLogin_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.Location = New Point((Screen.PrimaryScreen.WorkingArea.Width - Me.Width) / 2, (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) / 2)
        lbVersao.Text = "Versão:" & My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.Revision
        Try
            pnlDigitador.Controls.Add(_ucDigitador)
        Catch ex As Exception
            generica.gravaErro(ex)
        End Try
    End Sub

    Private Sub btnEnviar_Click(sender As Object, e As EventArgs) Handles btnEnviar.Click

        Try
            Dim form As New frmPrincipal
            frmPrincipal.iniciais = _ucDigitador.GETINICIAL
            form.Show()
            Form.Focus()
            Me.Visible = False
        Catch ex As Exception
            generica.gravaErro(ex)
        End Try
    End Sub
End Class
